home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / texted1a / frmnewdo.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-15  |  2KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNewDocuments 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "New - File"
  5.    ClientHeight    =   30
  6.    ClientLeft      =   15750
  7.    ClientTop       =   3270
  8.    ClientWidth     =   4710
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    MinButton       =   0   'False
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   30
  16.    ScaleWidth      =   4710
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.Label Label1 
  19.       Caption         =   "Please pick a option or press cancel..."
  20.       Height          =   15
  21.       Left            =   240
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   2895
  25.    End
  26.    Begin VB.Menu mnuTextDoc 
  27.       Caption         =   "New &Text Document"
  28.    End
  29.    Begin VB.Menu mnuRitchTextDoc 
  30.       Caption         =   "New &Ritch Text Document"
  31.    End
  32.    Begin VB.Menu mnuCancel 
  33.       Caption         =   "&Cancel"
  34.       NegotiatePosition=   2  'Middle
  35.    End
  36. Attribute VB_Name = "frmNewDocuments"
  37. Attribute VB_GlobalNameSpace = False
  38. Attribute VB_Creatable = False
  39. Attribute VB_PredeclaredId = True
  40. Attribute VB_Exposed = False
  41. Private Sub Form_Load()
  42.   Me.Height = 645
  43.   Me.Width = 4800
  44.   frmNewDocuments.Visible = False
  45. End Sub
  46. Private Sub mnuCancel_Click()
  47.    Unload frmNewDocuments
  48. End Sub
  49. Private Sub mnuRitchTextDoc_Click()
  50.    LoadNewDoc
  51.    Unload frmNewDocuments
  52. End Sub
  53. Private Sub mnuTextDoc_Click()
  54.    LoadNewTextDoc
  55.    Unload frmNewDocuments
  56. End Sub
  57.